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NEWSLETTER NO . 16 


MAY, 1985 


Hi , 

Another good turnout at the last meeting. Andy was back again, and 
started off the meeting by showing a pulled-apart Genie to everyone, 
describing what goes where, and which does what. Chris held his last 
class on Basic Programming. These have been a great success and 
at times have had more people in them than the ones in the main room. 


Andy mentioned during his talk that your Colour Genie should always be 
kept covered when it is not being used. He said it was surprising 
just what was inside both the Genies and the recorders that he has 
tiieen fixing. Cigarette ash is diabolical - don't smoke while you are 
on your computer. 


The Group are now repairing Colour Genies and have come to an 
agreement with Rakon to do this. There are several advantages in this, 
we w i 1 1 do it far cheaper than Rakon, and far quicker! As you do when 
you send your machine to Rakon, you will just have to courier it to 
Ken or Andy at their address in Whenuapai. They will fix it, then 
courier it back to you with an invoice for the cost. Auckland members 
'can arrange to leave their machines with me, either at work or at 
home, and I will ring them and let them know when their machines are 
fixed. By the way, recorders can be repaired too, again at a very 
reasonable charge. 


DISK DRIVES 


The Disk Drive interface and DCS arrived on the day of the meeting and 
thanks to Keith Dix having some disc drives in his car, it was got up 
and running at the meeting. The general opinion of it was very good, 
and Mark Langdon is now working out how practical it would be for us 
(actually him!) to produce it for us here in New Zealand, and how much 
it would cost to do so. The other alternative is just to purchase 
them for members straight from England. They would cost around 
$300.00 for the interface and DOS. The interface has a spare socket 
especially to fit another 4K , as this is apparently what it needs to 
work. Ihaven'tfound out whether they are selling this 4K ep rom/chip 
in England though, or whether we have to put them in ourselves if we 
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want them. There i s a 66 page booklet to go with the DOS, which "Seems 
to be very descriptive and well written. 

V ^ 

Hopefully, we will be able to let you know next month, firstly 
if we will be purchasing direct from England (and if this^iis the case 
then drives with a power source will be required separ atel y ) , 'Dr i f it 
has proved feasible for Mark to make them. If this i-s the case , 
should be able to let you know the all up price - interface, DOS, and 
disc drive with power source. We are hoping to get second hand disc 
drives at around $200 to $300 each. 


ROM /RAM BOARDS 

Mark also has 1 2K Ram Boards nearly ready. These will work out at 
around $45.00 each for the bare board. Plans are in the pipeline for 
arranging to have EPROMs burned with your favourite programs on them. 
These can then be fitted on to the Ram Board for instant loading. 

These will also be able to be used for an extra 12K of memory. They 
i 1 1 fit into the cartridge slot. 


PRINTER INTERFACES 

Printer Interfaces will also be ready very 
busy indeed I ) These will also cost $45.00 
from us . 


snort ly (Mark has oeen very 
each, and can be ordered 


DATA STABILISERS 


For all those country members waiting f 
you have read the news above, you will 
for so long. Mark has started another 
around about now! 


or data stabilisers, now that 
know why you have been waiting 
batch so they should be ready- 


PROGRAMS 


Herman Philipsen has been very busv translating Dutch programs for us. 
You will find one over the page, and another one on Pages 7, 8 and 9. 
These programs can, if preferred, be purchased from us at $3.50 each. 

Herman has also translated the whole of the Belgium/Netherlands 
newsletter for us. This must have taken him a long time, and will be 
available for people to read at the next meeting. Thank vou Herman, 
your efforts are much appreciated. 


JJOO - 


^EM P. HEE2EN - DORPSDIJK 199 

j REM RHOON - HOLLAND 3 

JO CLEAR200 ;DIMU(5) :M=1500;Ai="COLOUR GENIE" 

40 S=0:22=0 
50 GOSUB940 
60 IFM> 1500THEN1 10 

70 COLOUR 1 : PR I NT® 5 2 3, "DO YOU WANT INSTRUCTIONS (Y OR N ) ? " CHR$ ( 1 4 ) ; 

80 GOSUB1180 

90 lFIi = "Y"THENPRINTCHRi (1 5 ) .: : GOSUB 1 0 1 0 ; GOSUB940 ; GOTOl 10 
100 IFI $ <> "N"THEN80 

110 C0L0UR4 :PRINT®523 , " CHOICE OF DIFFICULTY (1-9)? "CHR$(14).: 

120 GOSUB 1180 ' 

13.0 IFASCLLi )<490RASC( Ii)>57THEN120 ' ' •’ '*=' 

140 R=ViAL( I $ > : PRINTCHR* ( 15) c 

15X^.,E=R/400 :D=R/800 v-' s! 

160 P=17808 + R:lc40 sf 

170 0=P:Q=0+40 : 2=0-8 
180 CLS;COLOUR4 

190 PR-INT®931 , " I N T R U D E R S" 

200 COLOUR 12 

210 FORI =1T023: POKE ( 1 a328+RND ( 38 ) ) ,246;POKE( 1 832a+RND ( 38 ) ) , 246 ; PRINT : FORNN= 1T025 

; NEXT ; NEXT 

220 S=S+1 ; H=1 ; G=0 

230 COLOUR 12 

240 PLAY (2,1,1,10) : PLAY (3,1,2,10) 

250 IFPEEK(P)=246THEN300ELSEPOKEP, 192:T=P 

260 IFPEEK(&HF840 )=32THENP=P-1 : H=H+EELSEIFPEEK ( d-,HF840 ) =64THENP=P+ 1 ELSEH^H+D 

270 I FP <OTHENP=TELSE I FP=QTHEN4 30 

280 F=INT( (P-0) / 7) + 1 K=P-2-F4:7 : PLAY( I ,F,K, 10 ) 

290 POKET,32; POKE( 1 8328+RND ( 38 ) ) , 246: POKE ( 1 832a+RND ( 38 ) ) , 246 : PRINT : G0T02 50 
300 PLAY( 1 , 1 , 1 ,0) ; PLAY(2, 1,1,0) I PLAY ( 3 , 1,1,0) 

310 SDUNDO ,255 : SOUND 1 , 15 :S0UND2 , 255 1 SOUNDS , 15 : S0UND4 ,255 ; SOUNDS , 15 : SOUND6, 23 : SOU 
ND7 , 7 : SOUNDS ,31; SOUND9 ,31: SOUND 10,31; SOUND 11,255; SOUND 12.255; SOUND 13,9 
320 POKEP , 243 : POKEP-41 , 227 : POKEP-39 , 223 : POKEP-^4 1 , 227 ; POKEP + 39 , 223 
330 FORB=0TO255;OUT255,B;NEXT 

340 POKEP, 246: POKEP-39, ,32; POKEP-41 ,32:POKEP+41 , 32 : POKEP+39 , 32 
350 LGR 

360 C0L0UR2 : PR INT®21 , "SPACESHIP NR."S 
370 PR I NTTAB( 24) "DESTROYED" 

380 U(S)=INT( .6*(P-17500) /H) 

390 PRINTSO, "POINTS; "U(S) 

400 22=2Z+1 

410 forn=itoiooo;next 

420 GOT0480 

430 PLAY ( 2 , 1 , 1 , 0 ) ; PLAY ( 3 , 1 , 1 , 0 ) ; FORN= 1 TO 1 2 ; PLAY ( 1 , 6 , N , 1 5 ) ; FORNN= 1 TO 1 0 : NEXT : NEXT : 
PLAY ( 1 , 1 , 1 , 0 ) 

440 COLOUR2 : PR I NT®21 , "SPACESHIP NR. "S 
450 PRINTTAB<21 ) "HAS MADE IT" 

460 U(S)=INT< .a*(P-17500) /H) 

470 PRINT®0, "POINTS: "U(S) 

480 IFS=5THEN530 

490 COLOURS : PR I NT® 9 20, "PRESS (RETURN) TO CONTINUE".: 

500 GOSUB 11 80 

510 IFASC( 1$ ) 0 13THEN500 

520 POKEP-1 ,32:PRINT®920,CHR$(30) ; :P=O:GOTO220 
530 COLOURl 1 :PRINT®920, "PRESS (RETURN) FOR SUMMARY") 

540 GOSUBl 180 

550 IFASC( 1$ )=13THEN570 

560 G0T0540 

570^ CLS: COLOUR 6 

580 PRI NTT AB( 15) " INTRUDERS" 

590 COLOURl 2 (PRINT .'PRINT 

60 0 PR I NTTAB ( 9 ) " SP ACESH IP POINTS" (PRINT 


f 



610 COLOUR 12 

620 F0RS=1T05 Paqg 4 

630 PRINTTAB( 13)CHRf (35)S.: ;PRINTTAB<24)U(S) 

640 NEXT 

650 V=U ( 1 ) +U ( 2 ) +U ( 3 ) +U < 4 ) +U ( 5 ) 

660 IFZ2=5THENV=0 . 

670 PRINT ; PRINTTAB( 1 1 ) " TOTAL ; ‘'STRING$ ( 6 , 32 ) V 

680 IF2Z=5G0SUB1 140 

690 L=0 ; IFV>I1THENM=V:L=1 

700 COLOURRND( 15) ; PRINT®566 , STRING* ( 27 , 127) 

710 FORN=606T076 6STEP40 ; PRINT@N,CHR* ( 127 ) ; PR I NTS'N + 26 , CHR$ (127); NEXT 
720 PRINT®806,STRING*(27, 127) 

730 COLOUR4 ; PRINT@650 , "HIGHEST SCORE: "M 
740 IFL=1THENGOSUBS60 

750 IFL=0THENT*730+ ( ( 19-LEN(A$ ) ) /2)ELSET=730 
760 F0RN=1T02 ; FORNN= 1T07 NEXT 
770 COLOURRNDC 15) :PRINT@T,A* 

780 COLOURS ; PR I NT@929 , "ANOTHER GAME (Y/N)? " ' : IFN= ITHENPRINTCHR* ( 1 27 ) ; ELSEPRI JvTC 
HR$ (32) ; 

790 I * = INKEY* ; IFI * = " "OR( I * <> "N" AND I * <> "Y" ) THENNEXT ; G0T0760 

300 IFI * = "Y''THEN40 

810 CLS 

820 G0SUB940 

830 COLOURS ; PR I NT(S'495 , "END OF GAME" 

840 PRINT®S00 , : COLOURl 
850 END 

860 COLOUR14 :PRINT®730 .STRING* ( 1 9 , 95 ) STRING* ( 19.24) ; A* = " " 

870 PRINTCHR* ( 14 ) .: 

880 GOSUB1180 

890 J=ASC( I * ) ; IFJ=13THENPRINTSTRING* ( 19-LEN( A* ) ,32 )CHR* ( 1 5 ) .: I RETURN 

900 IF J = 8ANDLEN( A* ) > 1 THENA*=LEFT* ( A t ,LEN( A* ) - 1 ) ; PRINTCHR* ( 95 ) STRING* ( 2 , 24 )CHR* (9 

5 )CHR* ( 24 ) .; : GOTOaSO 

9 10 IFJ = 8ANDL£N( A* ) = 1THENA* = " " : PRINTCHR* ( 95 ) STRING* (2,24 )CHR* ( 95 )CHR* ( 24 ) .: : GOTOS 
80 

920 IFJ = 320R( J> 6 4AND J < 1 23 ) THENPR I NT I * .: : A*=A*+I * : IFLEN( A* ) > 1 3THENPR I NTCHR* ( 1 5 ) .: , R 
ETURN 

930 GOTOSaO 

940 CLS ; COLOURRND (15) 

950 PRINT®200,STRING*(41 , 127) ) 

960 FORN=1T010 : PRINTTAB( 39 )STRING* ( 2 , 127) ; ; NEXT 
970 PRINTSTRING* (39, 127) 

980 COLOUR6:PRINT®335, "INTRUDERS" 

990 COLOUR15;PRINT®414,STRING*( 11 ,220) 

1000 RETURN 

1010 CLS : C0L0UR6 : PR I NTTAB ( 1 5 ) " I NTRUDERS " 

1020 COLOUR 11 

1030 PRINT;PRINT;PRINT"Far away in the asteroid belt," 

1040 PRINT"a small group of people has started a" 

1050 PRINT"mining company." 

1060 PRINT : PRINT" You must from time to time supply these" 

1070 PRINT"people with food, in your spaceship." 

1080 PRINT : PRINT"There are 5 spaceships you have to" 

1090 PRINT"bring to the other side in the shortest" 

1095 PRINT"pos i bl e time" 

1100 PRINT:PRINT"The controls are <"CHR* ( 253 ) "> and < "CHR* ( 255 ) " > . " 

1110 COLOURS ; PR I NT®920 , "PRESS (RETURN) TO START THE GAME") 

1120 GOSUB1180 

1130 I F ASC ( I * ) = 1 3THENRETURNELSE 1120 

1140 COLOUR13 :PRINT®566, "SORRY YOU HAVE NOT SURVIVED" 

1150 FORN=7T01STEP-l : FORNN= 1 T045 : PLAY ( 1 , 1 ,N, 15) I NEXT : NEXT 
1160 PLAY( 1 , 1 , 1 ,0) 

1170 RETURN 

1180 I*=INKEY*: IFI*=""THEN1180 
1190 RETURN 
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CHANGE PRINT TO LPRINT 


5000 FOR 1=22528 to 32767 

5001 IF PEEK(I)=17a THEN POKE 1.175 72. 

5002 NEXT I ? 3H' 

A)l 

To start this program, type RUN 5000 -jy 

This program was given to us bv Dai Sevan, of Wellington. 


NEWSLETTERS 


Some of you may have missed out on the last newsletter. If this is 
the case, please get in touch with us, and we will send it out with 
your next one. 


BITS S. PIECES FROM BRYCE NICHOL 


Here are some oddities in games which might prove useful. 

1. To pause the action in BAK PAK , hit the up arrow, '1' and '2' keys 
at the same time. You can restart with RETURN. This combination of 
keys breaks into basic p.rograms. 

2. In EAGLE press SHIFT or put down LOCK to get ash i eld. The game 
will not get any harder, but nothing will be able to hit you. 

3. When you get hit in WURM the screen flashes temporarily. If you 
hit both reset buttons while it is doing this, all of the graphic 
characters will change to coloured blocks until you get hit again. 

At around 32,000 points WURM crashes. The points for the Worm 
and the mushrooms are subtracted from your score, and the game stays 
at first to sixth screen difficulty (no ducks or spiders.) 

From theseventh screen on, WURM falls into a repeating pattern. 
There is a grey worm, followed by white, cyan, purple, dark blue, 
light yellow, greenish yellow, and red worms. After the red worm, 
comes alternately an invisible or grey worm and then the pattern 
repeats again. The screen border colour is the same as the colour of 
the next worm. 

When all of your 1 i ves are gone and the screen comes up where you 
press RETURN to get back to the title screen, try putting in your 
initials or name (up to 4 letters). This will come up alongside your 
score in the record. But funny things happen if you press CLEAR or 
any of the function keys instead. 


r 
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4. When you get over 999,999 points on AlO BOMBER, the program saves 
itself from crashing by resetting your score to 0. You Just have to 
remember how many million you have scored! 

Thank you Bryce, for sharing this with us, this is just the sort of 
thing we need . 

no 

NEW MEMBERS 


We have seven new members to welcome to the Group. They have all 
joined at the startrof our second year. 

Brian Adamson, 16 Pembroke Crescent, St Heliers 
Dianne Mai loch, 44 Regent S t r ee t , Pap a t oe t oe 
Simon Manning, 9 Ludlam Str eet , Feather ston 

Andrew Beattie, C/- #1 Officers Mess,RNZAF W i gr am , Pr i va t e Bag,Chch 
P.P. Royd3,10 Whitefield Str eet , Ka i apo i 
Peter Foster, P.O. Box 382, Havelock North 
Mainprize family, C/- Public Hospital, Wairoa. 

Our Member's List stands at 131 at the time of writing, 124 members 
having renewed their subscriptions, and 7 new members. 33 people have 
decided not to rejoin the Group - until March, we had 162 members. (I 

know that 4 of those people don't have their machines any longer.) 


NEW SOFTWARE 


Further on in this magazine, you will find anotner page to be added to 
your software catalogues. We have another six new (and good!) games 
in. There are a few new utilities too, but I just haven't had time to 
write them up yet, so they will have to wait for the next newsletter, 
apart from ; - 

DATA BASE II $15.00 

I haven't had a chance to look at this program yet, but Andy Turner 
has written it himself, and he has gone to the bother of writing a 
demonstration program to go with it. He has also written comprehensive 
instructions to go with this program. The program can store 600 
entries with 33 characters per entry. 


BANK ACCOUNT 


Barry Walker has done a lot of work to improve this program. All 
those people who already have this tape can, on receipt of $2.00, 
receive the updated tape, with 2 pages of explanations. Please let us 
have your original tape, so that we can put this new copy on the 
second side. 


MARCH/ APRIL ISSUE OF GUM MAGAZINE 


This issue has at last arrived, and will be sent out to country 
members over the next week. There is a very interesting article on 
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making System tapes out of basic programs. 


TAPE RECORDERS 


I have seen a new recorder, a small white one, that works very well 
with the Colour Gen ie. It is available from either Dick Smith or 
David Reid Electronics for *69.95, which is a very reasonable price. 
It is probably about 2/3rds the size of t^m EACA recorder, but it has 
all that the EACA has on it (tape counter, remote doohicky etc) and 
also has a couple of extra items. I think it is called 'Euroglide r' 
but will find out for sure by the next meeting. 


NEXT MEETING 

This will be on Monday, the 27th May, 1985. See you all there. 

No 1 a Hugo ins. 


1 REM THIS IS THE SECOND PROGRAM THAT HERMAN PHILIPSEN 

HAS TRANSLATED FOR US FROM A DUTCH PROGRAM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

10 CLS: COLOURS 
20 PRINT®455 , "MOONLANDING" 

30 FOR2=0TO383 
40 READS 1 

50 POKE«-.HF400+2,21 
60 NEXT 

70 DATAO.O, 1,3,7,15,15, 15,35,36,255, 127,63,31 , 255 , 255 , 1 96 , 36 , 255 , 254 , 252 , 248 , 21 


53,252,253,255.255,63,63,63, 191,63,191 ,240,224,224,252.254,255,255,254 

80 DATA 31,63,63,63, 127,63,63,4,252,253,252,253,252,255,255,3,63, 191,63,191,63,2 

55.255. 192.243.252.252.252.254.252.252.32.8. 16.32.240.0. 0.0.0.3.7.15.0.0.0.0.0.1 

92.224.240.0. 0.0.0.0. 16.8.4.15.0.0.0.0 

90 DATA 0,0,0,0,0,0,1,3,0,0,0,0,35,36,255,127,0,0,0,0, 196,36,255,254,0,0,0,0,0,0 
,128,192,7,15,15,15,15,7,7,63,63,31 ,255,255,255,255,252,252,252,248,255,255,255, 
255,63,63,224,240,240,240,240,224,224,252 

100 DATA 127,255,255, 127,31 ,63,63,63,252,253,252,253,252,253,252,253,63, 191,63,1 
91,63,191,63,191, 254 ,255,255,254,248 , 252,252 ,252,127,63,63,4,8,16,32,240, 252,255 
,255,3,3,7,15,0,63,255 ,255, 192, 192,224,240,0,254,252,252,32 ,16,8,4,15 
110 DATA0,0,3,7, 15,63, 127,255,0,248,254,255,255,255,255,255,0,0,3, 143,255,255,25 

5.255.0. 0. 129.192.224.240.255.255.0.0.0.0.56.127.255.255.0.0. 128. 192.252.254.255 
,255,0,0,0,0,0, 1 ,255,255,0,0,0,0,224,248,254,255 

120 DATA2,2,4,4 , 9,18,18,36,64,32,32,144,144,8,72,68,2,4,4,9,9,16,18,34,64,64,32, 
32, 144,72.72,36 

130 DATA2, 136,32 ,1,64,2,132,1,160,18,0,8,4,64,2,136,145,44.64,1,32,8,2.129,129,1 
6,65,2,4,16,64,2 



1 40:CLS ; RANDOM : 2=0 : H=8099 ; V=55 : T=2000 : F= 1 000 I S=0 I M = 4500 : G= 1 . 62 : 2 1 = 1 ; I =0 : Z2 = 0 
150:FORA=1T020 ;COLOURRND( 15) ; PRINT@RND ( 300 ) +500 , " . ” : NEXT 

1 60: COLOUR6 : FORA = OTO 1 5 
170: PRINT®A,CHRi (211).: 

1 80 : PRINT@A + 360 ,CHR$ (218).: 

1 90 : NEXT 

200 : FORA=0TO360STEP40 
210 PRINT@A,CHR$ ( 207 ) .: 

220'PRINT®A+15,CHR$(219) .: 

230 . NEXT 

240 PRINT®0,CHR$ (223) .: 

250: PRINT®360.,CHR$ (227) .: 

260: PRINT®15 ,CHR$ ( 227 ) .: 

270: PRINTS'375 ,CHR$ ( 223 ) .: 

230: COLOURl 1 ; PRINT®41 , "He i ght ; " 

290 PRINT(®121 , "Speed ; " 

300 PRINT@201 , "Eng i ne ; " 

310 PRINT®231 "Fuel ; " 

320:COLOUR3 

3 30: PRINT®340 ,CHR$ ( 165 )CHRi ( 166 )CHR« ( 167 ) .: " " .: CHR$ ( 160 )CHR$ (161 )CHRt ( 162 )CHR$ ( 

163)CHRt ( 164 )CHR$ ( 162 )CHR* ( 165)CHR$ ( 166 )CHR« ( 167 )CHR$ ( 165 )CHR$ ( 164 )CHR$ ( 167 )CHR$ 
( 160 )CHR$ (161 )CHR$ ( 162 )CHR$ ( 163 ) .: STRING$ ( 13 , " " ) .: CHR$ ( 160 )CHR$ (161 )CHR$ ( 163 )CHR$ 
( 164) .: 

340 PRINTCHR$ ( 162) : 

350 PRINT®880 , STRING* (3,202).: CHR* ( 163 )CHR$ ( 164 )CHR* ( 162 ) .: STRING* ( 16 , 202 ) .: CHR* ( 16 
5) .: STRING* ( 8 , " " ) .: CHR* ( 160 )CHR* ( 163 )CHR* ( 164 )CHR* ( 162 ) .: STRING* ( 5 , 202 ) .: 

360 PRINT®920 ,STRING* (23,202).: CHR* (161 )CHR* (161) CHR* ( 202 )«.)HR* (161) CHR* ( 1 62 ) CHR* ( 
202 ) CHR* (161 )CHR* ( 162 ) .: STRING* (9,202)' 

370 I *= INKEY* 

380 IFI * <> " "THENI=ASC ( I * ) 

390 IFI >47 AND I : 53THENS= I -48 
400 IFT<=0THENT=0 ; S=0 
4 1 0 > COLOUR 1 

420 : PR I NT@48, USING "#####" .: H 
430 'PRINT® 129 , USING "####" .: V 
440- PRINTS209 , S 
450. PRINT®290 ,US I NG "####" ) T 
460 IFH<100THEN2=0.5ELSEZ=Z1 

470 V = V-(F:*:S/M-G):<c2:H=INT(H-VlcZ) : T=T-S1:Z : M=M-S:t:Z 

480. IFV>50ANDH<1000THENZ=2 

490.) IFH>4000THENGOSUB1010 

500 :■ IFH<4000THENGOSUB1 170 

510 IFZ2=2THEN740 

520 IFS=OTHENSOUND6 , 0 : SOUND? , 0 : SOUNDS , 0 
530 : IFS=0ANDH> 100THENPRINT®B+161 , " " .: 

540: IFS>0THENGOSUB1420 
550 GOTO370 
560 > COLOURl 
570. PRINT®B-40 , " " 

580 IFZ=2THENPRINT®B-80 , " " .: 

590 PRINT®B,CHR* ( 128)CHR*( 129)CHR*( 130)CHR*( 131 ) : 

600 PRINTSB+40 ,CHR* ( 132) CHR* ( 133) CHR* ( 134) CHR* ( 135) .: 

610 COLOURl 1 

620. PRINT®B+80,CHR* ( 136 ) CHR* ( 137 ) CHR* ( 133) CHR* ( 139 ) ; 

630- PRINT®B+120 ,CHR* ( 140)CHR*( 141 )CHR*( 142)CHR*( 143) .: 

640 RETURN 
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a5Q COLOURl 

660 IFZ = 2THENPRINT®B-40 , " " 1 PR I NT®B- 90 , " " 

670 PRINT®B,CHR$ ( 144 )CHR$ ( 145 )CHRi ( 146 )CHR$ ( 147 ) .: 

630 PRINT®B + 40,CHR$ ( 148)CHR* ( 149)CHR$ ( 150)CHR» ( 1 5 1 ) .: 

6 90 COLOUR 11 

700 PRINT@B + 80 ,OHRi ( 152)CHR$ { 155)CHR$ < 154)CHRi ( 155) 

710 PRINT®B+120 ,OHR$ ( 156)CHR$ ( 157 )OHR$ ( 158 )CHR$ ( 159 ) .: 

7 20 IFV <0THENPRINT®B+160 , " " ; PRINT@B+ 1 63 , " " 

730 RETURN 

740 IFV<3THEN770 
750 IFV<20THEN310 
760 GOT0910 

770 COLOURS 1 PR I NT®859 , CHR* ( 202 ) ; CHR$ ( 202 ) .: A«=CHR* ( 193 ) I PRINT@7 41 , A $ Ai ; PRINT®78 
0,A$.: A*.'A$.: I COLOUR6 I PR I NT®740 , CHRi ( 196) iCOLOURl ; A$ =CHR$ ( 2 1 9 ) ; PR I NT®739 , A$ :PRIN 
T®779,A»,; ;PRINT®819,A$.: 

780 F0RC=1T02 ; F0RA=1T08 : FORB= ITOl 2 : PLAY ( 1 , A ,B, 1 1 ) : NEXT ; NEXT ; NEXT ; PLAY( 1 , 1 , 1 , 0) 
790 PRINT@60 , "Per f ect landing" 

800 GOTO870 

810 SOUNDO , 0 ; SOUND 1 , 8 I SOUND2 , 0 : SOUNDS ,8 : SOUND4 , 0 : SOUND5 , 8 : S0UND6 , 24 ; SOUND7 , 7 I SOU 


ND8 , 24 ; SOUND9 , 24 ; SOUNDIO , 0 : SOUND 1 1,48: SOUND12 , 45 ; SOUND13 , 3 
820 COLOURl 
830 S=3 

840 PRINT@60 , "Land i ng too hard !!" 

350 PRINT® 1 00 , "Land i ng gear damaged I" 

860 GOTOS70 

870 IFS=2FORA=lTOaOO : NEXT : PRINT®B , " 

INT®B+120, " " ,:CHR$ ( 164) ) I COLOUR 11 

380 IFS=3THENCOLOUR5 : PRINT®B+ 1 23 , CHR$ (227) 

390 PRINT®180 , "New game (Y/N)";A$="" 

900 A^ = INKEY* : I FAt = "N " THENENDELSEI FA$ = " Y" THENRESTORE ; GOTO 1 40ELSE900 


PRINT®B+40, 
; COLOURl 1 


:PRINT®B + 80,." 


lOUNDl , i: 


iOUND2 


SOUNDS 


SOUND4 


BOUNDS 


:PR 


SOUND 6 , 23 ; SOU 


MD7 ,, 7 ; SOUNDS ,31: SOUND9 ,31: SOUND 10,31 : SOUND 1 1 , 255 : SOUND 1 2 


255 : SOUND 13 ,9 


920 COLOURS 

930 PRINT®B+120 ,CHR$ (171 )CHR$ ( 173)CHR$ ( 174 )CHR$ ( 175 ) : COLOURS 
940 PRINT®B,CHR$ ( 172)CHR$ ( 173 ) " " 

950 PRINT®B+40 ,CHR* ( 173 )CHR$ ( 174 )CHR$ ( 175 )CHRi ( 172 ) ; COLOURS : 3=2 
960 PRINT®B+S0 ,CHR$ ( 173)OHR$( 172)OHR$( 174)CHR$( 175) 

970 COLOURl 

980 PRIMT®60 , "You are now on the" 

990 PR I NT® 1 00 , " moon , that was quick." 

1 000 FORA=1T010 ; CHAR4 : FORA 1 = 1 T020 : NEXT : CHAR2 : NEXT : GOTO8 7 0 

1010 IFH> 7750THENB=65 : GOSUB650 : RETURN 

1020 IFH>7500THENB=65 ;GOSUB650 ; RETURN 

1030 IFH>7250THENB=105;GOSUB560 :RETURN 

1040 IFH>7000THENB=105 :GOSUB650 '.RETURN 

1050 IFH> 6750THENB=1 45 :GOSUB560 (RETURN 

1060 IFH>6500THENB=145 ;GOSUB650 IRETURN 

1070 IFH>6250THENB=185 ;GOSUB560 (RETURN 

1 080 IFH> 6000THENB= 1 85 ( GOSUB650 ( RETURN 

1090 IFH>5750THENB=225(GOSUB560: RETURN 

1100 IFH>5500THENB=225(GOSUB650( RETURN 

1110 IFH>5250THENB=265 (GOSUB560 (RETURN 

1 120 IFH>5000THENB=265(GOSUB650: RETURN 

1 1 30 IFH> 4750THENB=305 ( GOSUB560 : RETURN 

1 1 40 IFH> 4500THENB=305 ( GOSUB650 ( RETURN 

1150 IFH>4250THENB=345 (GOSUB560 (RETURN 

1 160 IFH>4000THENB=345 (GOSUB650 (RETURN 

1170 IFH>3750THENB=385 :GOSUB560 (RETURN 

1 180 IFH>3500THENB=385 (GOSUB650 ( RETURN 

1 1 90 1FH> 3250THENB=425 ( GOSUB560 ( RETURN 

1200 IFH>3000THENB=425 (GOSUB650 (RETURN 
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1210 IFH>2750THENB=465 :GOSUB560 ; RETURN 
1220 IFH>2500THENB=465 :GOSUB650 : RETURN 
1230 IFH>2250THENB=505 :GOSUB560 : RETURN 
1240 IFH>2000THENB=505 : GOSUB650 : RETURN 
1250 IFH> 1750THENB=545 ;GOSUB560: RETURN 
1260 IFH> 1500THENB=545 :GOSUB650 : RETURN 
1270 IFH> 1250THENB=585 ;GOSUB560 : RETURN 
1280 IFH> 1000THENB=585 :GOSUB650 IRETURN 
1290 IFH>750THENB=625 : GOSUB560 : RETURN 
1300 IFH>500THENB=625 :GOSUS650 : RETURN 
1310 IFH> 400THENB=665 : GOSUB360 : RETURN 
1320 IFH:>300THENB=665 :GOSUB650 : RETURN 
1330 IFH>200THENB=705 GOSUB560 : RETURN 
1340 IFH> 1 00THENB=705 : GOSUB650 : RETURN 
1350 IFH>50THENB=745 :GOSUB560; RETURN 
1360 IFH>40THENB=745 ;GOSUB650 : RETURN 
1 370 IFH> 30THENB=785 : GOSUB560 ; RETURN 
1380 IFH>20THENB=785 ;GOSUB650 : RETURN 
1390 IFH>0THENB=785;GOSUB560; RETURN 
1400 I FH < 0TKENB= 785: GOSUB6 50:22 = 2: RETURN 
1410 RETURN 
1420 COLOURS 

1430 IFPEEK( 17569+B)=161THENRETURN 
1440 IFV<0THENPRINT@B+201 , " 

1450 A=RND<4) 

1460 IFA=1THENPRINT@B+161 ,CHR$( 168)CHR$ (169) 
1470 IFA=2THENPRINT®B+161 ,CHR$ ( 170 )CHR$ ( 169 ) ; 
1480 IFA=3THENPRINT@B+161 ,CHR$ ( 170 )CHR$ ( 171 ) ) 
1490 IFA=4THENPRINT 5B+161 ,CHR«( 168)CHR$( 171 ) ■ 
1500 SOUND6 ,16: SOUND7 , 55 : SOUNDS , 1 2 
1510 RETURN 


/• 
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EDITORS NOTES 


Just a Tew words from me this month. The display below is a Tull list 
of the graphics char's with their CHR$ Nos. This should be a great 
help in graphics design oT your programs. This list was made passible 
by a piece oT soTtware which now allows my printer to print NODSEL 
char's as they appear on the screen instead oT printing the equivelant 
Alpha char's. This will make easier Tor you to copy the listings 
99"/. oT the programs we get Trom you Tor the newsletter are printouts 
on paper. This makes me think that either you all own printers or that 
only those with printers are sending in programs. IT you want to send 
in a listing or article on tape thats Tine (In Tact it's easier Tor me 
on tape). We will oT course return your tape aTterwards. So keep them 
T lowing in. 

Finally two mod i T i cat i ons by Keith McGill to add scaring to last 
months listings. 

LABYRINTH 340 SC=SC+1 : RR-R+1 : IF RR>3 THEN RR=0 

795 PRINT"SC0RE=";SC 
S35 SC=0 


TENNIS 1025 S=0:N=0 

1150 PRINT; GOTO 1160 

1155 FCL3: LGR: CL3; PRINT "SCORE ; " : N- 1 ; " - " ; 3- 1 


128 

"1 

129 

r 

130 


131 


132 

4 

133 


134 

JL 

135 

TT 

136 

— 

137 

1 

138 

1 

139 

' " 

140 


141 

□ 

142 

1 

143 

• 

144 

B 

145 

mm 

146 

r 

147 

T 

148 

> 

149 


150 

h 

151 

4 

152 

■ 

153 

4 

154 

■«. 

155 

i. 

156 

J 

157 


158 


159 

ub 

1 60 


161 

■ 

162 

C 

163 

1 

164 

n 

165 

u 

1 66 


167 


168 

1 1 

169 

m 

170 

* 

171 

1 

172 

3 

173 

■I 

174 

iZ 

175 

r. 

176 

b* 

177 

■ 

178 

‘J 

179 

.n 

180 

•MW 

181 


182 

1 

183 

m 

184 

U 

185 

>: 

186 

1 

187 


ISS 


189 

■ 

190 

m 

191 

•• 

192 


193 


194 

+ 

195 


196 


197 

X 

198 

V 

199 


200 


20 1 


202 

■ 

203 

II 

204 

llli 

205 

A 

206 


207 

1 

208 

mmIi 

209 


210 


211 


212 

1 

213 

1 

214 

■ 

■ 

215 


216 

INI 

217 

— 

218 


219 

1 

220 


221 

II 





224 

b. 


1 

226 

r 

227 

\ 

228 

'4 

229 


230 

# 

231 

'IJ 


t' 

oil • J* 

□ 

234 


235 

O 

236 

r 

237 

n 

238 

4 

239 


240 


241 

X 

242 

♦ 

243 


244 


245 

» 

246 

• 

247 

J z 

248 


249 

'7' 

"•I 

250 

U 

251 


252 

■ 

253 



0 CLS 

1 COLOUR 8: PRINT;5)450, "KNIBHTSBRIDGE" 

2 FOR A=1 TO 1000; NEXT: CLS 

3 COLOUR 2: PR I NT "ADAPTED FOR THE COLOUR GENIE" : PRINT: PRINT" BY TMA 
RRETT" 

4 PRINT: PR I NT "FROM T HARTNALLS BOOK OF COMPUTER GAMES" 

5 FOR Z=1 TO 2000: NEXT; CLS 

6 COLOUR 6; PRINT" THE PIECES MOVE THE SAME" 

7 PR I NT: PR I NT" AS KNIGHTS IN CHESS" 

8 FOR A=1 TO 2000: NEXT: CLS 

9 COLOUR 1 

10 REM KNIGHTSBRIDGE 
20 GOSUB 760 

30 GOSUB 490: REN PRINT BOARD 
40 IF HU=6 OR C0=6 THEN 680; REM 
END OF GAME 

50 GOSUB 300: REM COMPUTER MOVES 
60 GOSUB 490: REM PRINT BOARD 
70 IF HU=60R C0=6 THEN 630: REM 
END OF GAME 

80 GOSUB 110: REM PLAYER MOVES 
90 GOTO 30 

100 REM *$:)fi^$:^t***tt*****t^^**t***^t 
no REM PLAYER MOVES 
1 20 Q=0 

130 M=INT (RND (0) *66) +1 1 
140 Q=Q+1 

150 IF Q=500 THEN 680 

160 IF H(M)<>72 THEN 130 

170 PR I NT "YOU MUST MOVE THE PIECE ON"M 

ISO INPUT N 

1=>0 IF N=99 THENQ=500: GOTO 680 
200 REM ***CHECK IF MOVE LEGAL*** 

210 P=0 
220 CT=1 

230 IF M+Z(CT)=N THEN P=1 

240 IF CT<B THEN CT=CT+1;G0T0 230 

250 IF P=0 THEN PRI NT " I LLE6AL MOVE": 

GOTO 180 

260 IF H(N)=67 THEN HU=HU+1 ; PRINT" 

WELL PLAYED! ' ";FOR R=1 TO 500 : NEXT R 
270 H (M) =46: H (N) =72 
280 RETURN 

290 REM ************************** 

300 REN COMPUTER MOVES 
310 Q1=0 
320 Q1=Q1+1 

330 K=INT (RND (0) *66) +1 1 
340 IF 01=500 THEN 680 
350 IF H<K)<>67 THEN 320 

360 PRINT"! HAVE TO MOVE THE PIECE ON"K 
365 FOR A=1 TO 800: NEXT 
370 W=1 

380 IF K>Z(W)<11 OR K+Z (W) >77 THEN 400 

390 IF H(K+Z(W))=72 THEN PRINT"GOTCHA ! ! ! " : C0=C0+1 ; FOR P=1 TO 1000 
:NEXT P:GOTO 450 
400 IF W<8 THEN W=W+1:G0T0 380 
410 W=1 

420 IF (K-t-Z(W) <ll OR K+Z <W) >77 ) AND W<8THEN W=W+1:G0T0 420 
430 IF H(K+Z(W)) 046 AND W <8 THEN W=W+ 1 ; G0T0430 
440 IF W=8 AND H(K+Z(W)) 046 THEN Ql= 

5uO:GOTO 680 
450 X=K:Y=K+Z(W) 

460 H(X)=46:H(Y)=67 


470 RETURN 
4S0 REN 

490 REM PRINT BOARD 

500 CLS : PR I NT : PR I NT : PR I NT 

510 PRINT TAB(8);"Ny score i5"C0 

520 PRINT TAB(8);”And yours is”HU 

530 PRINT 

540 PRINT TAB(8);"1 234567" 

550 PRINT TAB(8);" " 

560 FOR M=70 TO 10 STEP- 10 
570 PRINT TAB(5);M/10; 

580 FOR N=1T0 7 

590 PRINT CHR$ (H (M+N) ) ; '■ 

600 NEXT N 
610 PRINT M/10 
620 NEXT M 

630 PRINT TAB (8);" " 

640 PRINT TAB(8);"1 234567" 

650 PRINT 
660 RETURN 
670 REM 

680 REM END OF GAME 
690 GOSUB 490 

700 COLOUR 5: IF HU=6 THEN PRINT"WELL DONE IM BEATEN" 

710 COLOUR 4: IF C0=6 THEN PRINT"IM THE W I NNER " ; PR I NT " BETTER LUCK 
NEXT TIME" 

720 IF 0=^500 THEN PRINT"! accept your 
wi sh to concede" 

730 IF 01=500 THEN PRINT"! concede to a 
Master " 

740 END 
750 REM 

760 REM INITIALISE 

770 CLS : PR I NT " FT ease stand by... " 

780 DIM H (99) , Z (8) 

790 X=0:Q1=0:Q=0 
800 RANDOM 

810 HU=0: C0=0: REM Scores 
820 FOR A=1 TO 99 

830 IF A >77 OR A=70 OR A=60 OR A=68 
OR A=69 OR A=50 OR A=59 OR A=40 OR A=48 
OR A=49 THEN 880 

S40 IF A=30 OR A=38 OR A=39 OR A=20 OR A=28 OR A=29 OR A=18 OR A 
19 OR A<11 THEN880 
850 H<A)=46 

860 IF A >70 AND A<78 THEN H(A)=67 
870 IF A>10 AND A<18 THEN H(A)=72 
880 NEXT A 

890 FOR A=1 TO 8: READ Z (A): NEXT A 
900 DATA -8,-21,-12,-19,19,12,21,8 
910 RETURN 


The ColQur in the Ggnie 


I recently attacked the nastie o-f COLOUR 15 which has cropped up 
some pomnae programs. In their systems, COLOUR 15 is white whereas it is 
black in ours. (They have UHF V-J sets you see.) While I was looking into 
the ROM with Ken Hynds, it occurred to me that a brie-f discussion o-f colour 
may be use-ful to members. 

The colour o-f a character on the screen is determined by the first 
four bits of a number when it is converted to binary. In binary, 8 = 0000, 
1 = 0001, 2 = 0010, 3 = 0011, and so on up to 15 which is 1111. 16 is 

10000 in binary but as the COLOUR only looks at the first four bits of the 
number, 16 is effectively the same as a 0 to the Genie. The bottom three 
bits are the colour bits and the top bit is the brightness factor. There 
are only the three primary colours generated in a TU tube, red, green and 
blue or RGB for short. A 8 in the COLOUR number turns that colour on and a 
1 turns it off. The lowest bit is red, the next is green and the third bit 
signifies blue. Thus 0110 is bright red (brightnes is on if the top bit is 
a 0), 0101 is bright green and 8811 is bright blue. If two guns are on, we 
get the complementary colours cyan (0081), magenta (8018) and yellow (0108). 
0000 IS white because all three guns are on and the brightness is up. 0111 
is a dark gray because only the brightness factor is on and 1111 (or 15) is 
black because everything is off. A 1 at the start of a number shades a 

colour. If you compare these colours with the COLOUR numbers in the Genie, 

you will see that they are actually out of order. 

A1 ! IS not lost though as the colour table is storeo in RAM at 
4390H-439FH and the colour of a particular COLOUR number may be changed oy 
POKEing that location. If you RUN the follcMwing program, you will see the 
colours as they are normally. If you RUN the program again, you will see 

the colours in the order that I think that they should have been. 

18 A$ = 3TRINGt(10, 127) :F0R I = 1 TO 8 

20 COLOUR 1;PRINT I;:C0L0UR I : PRINT A$;:C0L0UR liPRINT I+S; : 

COLOUR I+8:PRINT AS:NEXT 

30 FOR I = 8 TO 15:READ K:P0KE a^H4390 I,K:NEXT 

40 DATA 16,5,6,4,7,3,1,2,3,13,14,12,15,11,9,10 

What is your opinion about this? 

To come back to the pommie programs, if it is in BASIC you 
merely have to POKE 8iiH439F,16 before you RU'-l it. Unfortunately, 
machine-code programs do not appear to use the colour table and alterations 
have to be done with a monitor as before, slowly. 


- Allan Cl ark e 


First hate - RS232 Driver 


Nola has been on to me -for some time to write an article describing 
what the RS232 Driver program does. This is the program you need if you 
want to communicate with a data-base, bulletin board, main-frame computer, 
another micro or a serial printer through the serial port on the Colour 
Genie's right hand side. If the distance between the devices is more than 
20-30 metres then you will need a modem as well (about $280-300). Signals 
can be sent o'.'er the telephone lines with an approved modem. The data 
that is usually transmitted or received is confined to the printable ASCII 
characters 32-127. Characters 0-31 are dedicated to computer control 
functions and characters 123-255 are generally graphics peculiar to a 
particular machine. This rules out SYSTD*! programs in the raw but there 
are ways of sending and receiving these as ASCII characters. Files that 
can be sent as is include BASIC programs (no graphics), word processor files 
(electronic mail) and data-base files. In fact, anything that can be 
LPRINTed or LLISTed is a probable candidate. Of course, the receiving or 

transmitting device at the other end has to be set up to the same RS232 
protocol as the Genie. 

No hardware mod is required for the Genie and it can work at Baud 
rates from 308 to 4880. We have tried 9690 Baud but the results were 
erratic. The other Baud rates are reliable. Files can received to the 
screen, printer or 16k buffer. Files in the buffer can be view^ed, printed, 
transmitted or converted back to a BASIC program. ASCII files can be 
prepared for transmission from the buffer with any program that uses LPRIt-TT 
statements. The driver has been set up to work with the WP2 word processor 
and also incorporates the printing patch for Super 5/Epson etc printers. 


This only touches on the possibilities of this program. One 
unlikely use I have discovered is that it allows a true MERGE of SASIC 
programs where lines can be inserted anywhere in another prog(3.m. 3y using 
RENUM as well, one could copy blocks of a program and duplicate them 
elsehwere in the program. All of this is accomplished at machine code 
speed. 


- Allan Clarke 


WP2 - Word Processor Notes 


A user asked me i-f it was possible to have line lengths o-f greater 
than 76 characters, i.e. more than two Genie lines. The short answer is 
yes. Anyone else who wants longer lines will need to make the -following 
alterations to the program and CSAVE another copy o-f the program. 

Line 36: Add another PRINT statement at the start o-f the line. 

Line 366: Alter A>=G-^E to A>G-i-E-h39. 

Line 394; Change E=920 and E=8S0 to E=830 and E=840 respectively. 

These edits will allow line lengths o-f up to 114 characters. 

I hope that users have discovered the edit-scroll -faction with the < 
and > keys while in the edit mode. 

Not*j -for a word about those ! tape recorders that won't allow 

TAPEd text -files to be LOADed back into memory. I have not ever had any 
problem in this respect with the Genies I have used. I do not use a data 
stabiliser and simply have both MIC and EAR connections into an EACA 
recorder. I am not saying that there is no problem and I think that it is 
worth giving a fei»j hints to help those folks who are having difficulty. 

DO; Have the playback head aligned properly with a good audio tape. 

Keep the head clean using a cotton bud and isopropyl alcohol or .. 
methylated spirits; good enough for the BBC and good enough for me. 

Try a different tape machine. 

Adjust the playback level to 2.5 before starting a LOAD. 

Use ordinary ferric tapes (I always use TDK C60 tapes). 

Try removing the MIC plug before LCWDing and./or removing the EAR plug 
before TAPEing. 

Z)0N'T: Use head cleaning tapes or demagnetising cassettes. 

Adjust the playback level at ter you've started a LOAD. 

Use your computer on the same house wiring going to a refrigerator or 
washing machine; induction motors are deadly for spikes! 

Use C90 tapes. They stretch and the oxide coating is too thin. 

I arri investigating the 'problem' of data tapes when PRINT#^1 and 
INPUTti-l statements are used in a program. Howe'.^er , I need some tapes of 
files A Ed on machines that will not INPUT the data back again. I would 
be grateful if any members who have this problem could lend me their tape 
together with a copy of what was placed on the tape. 


-Allan Cl arke 


% 


10 CLSiPRINT TAB (20) "Tabl e Mortgage Program" : PRINT: PRINT 
20 'In Vanilla BASIC by A.G. Clarke - April 1985 
30 PRINT: INPUT"Principal loaned $".;P:P1=0 
40 PRINT: INPUT"Rate per cen t " ; R : R = R/ 1 00 : PR I NT 

50 PRINT" Do you want to use monthly repayment figure (M) or no. of years (N)? 

H , 

% 

60 BOSUB 220: IF A$="m" OR A$="M" THEN 80 

70 PRINT: INPUT"No. of years of 1 oan " : N : RP = P*R* ( 1 +R ) ''N/ ( ( 1 +R ) ''N- 1 ) : GOTO 90 
30 PRINT: INPUT"Monthly repayment ; RP: RP=RP*12 
90 CLS:Y=1 

100 PRINT "Monthly repayment: $"RP/12 

110 PRINT"Year Yearly Princ Int Princ Int" 

120 PRINT" Payment Owing Repaid Paid" 

130 I=P*R: 1 1 = 1 l + I : Pl=Pi + RP-i 
140 PRINT Y; TAB (5) ; INT (RP) ; 

150 PRINT TAB(13) ; INT(P) ;TAB(20) ; INT(I) ;TAB(26) ; INT(Pl) ;TAB(33) ; INT(Il) 

160 P=P-RP+I:IF P<1 THEN END 
170 Y=Y+1:IF Y=20 THEN GOSUB 210 
180 IF P+P*R>RP THEN 130 

190 FOR J=1 TO 12:K=P+P»J*R/12: IF K<J*RP/12+1 THEN R= J*R/ 1 2: RP=K : GOTO 130 
200 NEXT 

210 PRINT"Press <RETURN> to continue:"; 

220 A$=INKEY$:IF A$="" THEN 220 
230 PRINT: RETURN 

240 REM To print a copy of the results on a printer, change PRINT at the 
250 REM beginning of lines 100-150 to LPRINT. 


ine results are shown on the screen like this: 


Monthly repayment: 


ear 

Year 1 y 

F'r i nc 


Payment 

□wi ng 

1 

3928 

20000 


3928 

19671 

"T 

3928 

19284 

4 

3928 

18828 

5 

3928 

18289 

6 > 

3928 

17653 

7 

3928 

16902 

8 

3928 

1 60 1 6 

9 

3928 

14971 

10 

3928 

13738 

1 1 

3928 

12283 

12 

3928 

10566 

13 

3928 

8540 

14 

3928 

6149 

15 

3923 

3328 


327. 

338 


Int 

Princ 

Int 


Repai d 

Pai d 

3600 

328 

3600 

3540 

715 

7140 

3471 

1171 

1 06 1 2 

3389 

1710 

1 400 1 

3292 

2346 

17293 

3177 

3097 

20470 

3042 

3983 

23513 

2883 

5023 

26396 

2694 

6261 

2909 1 

2472 

7716 

31564 

221 1 

9433 

33775 

1902 

11459 

35677 

1537 

13850 

37214 

1 1 06 

16671 

38321 

599 

19999 

38920 




1 REM 3-D CUBE 

''3 REM i=LEFT,2=RIijHT,3=DOOJN,4=lJP,5=CLOSER,6=FURTHER,?=lNCR£PSE IN PERSPECTIUE, 8= 
' DECREPSE IN PERSPECTIUE 
5.^ CLS: FCLS: FGR: FC0L0IJR4 
1£1 N=lii 

20 DIMP(;50),X<;50), Vc:30>,2<50J',P<50;,B<50.') 

40 D=10:P=0.5 

50 S I =S I N < 0 . 09 ; ; CO=COS <0.09) 

60 F0RI=1TQN 

70 REPDP< I ) , N< I ) , S'< I ) , 2< I ) 

30 NEXT I 
200 Qi;iSUB300 

210 I$=INKEV$: IFI$=‘' ‘'THEN210 
230 FCLS 

240 ON UPL< I$)GCiSUB 1000, 2000, 3000, 4000, 5000,6000, 7000, 8000 
250 13010200 
300 F0RI=1T0N 

310 P < I ) =X < I ) *250^- < P^'Z < I ) +D ) ; B < I ) =V < I ) *250/ < P*2 < I ) +D ) 

320 NEXT I 
330 F0RI=1T0N 

340 I FP < I ) =4THENPLCiTP < I ) +80 , B < I ) +50 : M=P < I ) +80 ; N=B < I ) +50 
345 I FP < I ) =5THHNPL0TM , NTON+ < P < I ) -P < I - 1 ) ) , N+ < B < I ) -B < I - 1 ) ) 

348 I FP < I ) =5THENM=M+ < P< I ) -P < I - 1 ) ) : N=N+ < B< I ) -B < I - 1 ) ) 

350 NEXT I 

360 RETURN 

1000 FORI=iruN 

1010 X=X< I )*CO-Z< I )*SI 

1 020 Z=Z ( I > *CO+X ( I ) *S I 

1030 X<I)=X:2<I>=Z 

1040 NEXT I 

1050 RETURN 

2000 FOR I- 1 ton 

2010 X=X < I > ■t-CO+Z < I ) *S I 

2020 Z=2 < I ) *CiO-X < I ) *S I 

2030 X < I ) =X : 2 < I ) =2 

2040 NEX r I 

2050 RETURN 

3000 FOR 1 = 1 TON 

30 1 0 V=S-‘ < I ) *C0+ 2 < I ) *S I 

3020 Z=2 ( I ) *C0- V < I ) *S I 

3030 V(I)=V;2<I)=2 

.3040 NEXT I 

3050 RETURN 

40010 F0RI = 1T0H 

401 0 V=V < I ) *Ci:i-2 < I ) *S I 

4020 2=2 < I ) *Ci:i+V < I ) *S I 

4030 V<I)=V!2<I)=2 

4040 NEXT I 

4050 RETURN 

5000 D=D*0 . 9 : RETURN 

6000 D=D/0. 9; RETURN 

7000 P=P.^0 . 9 ; RETURN 

8000 P=P*e. 9: RETURN 

9000 DPTP4, 1, 1, 1,5, 1, 1,-1, 5,-1, 1,-1, 5,-1, 1, 1,5, 1, 1, 1 
9010 DPTP5, 1,-1, 1,5, 1,-1, -1,5, -1,-1, -1,5, -i,-l, 1,5, 1,-1, 1 
9020 DPTP4, 1,-1, -1,5, 1, 1,-1, 5,-1, -1,-1, 5,-1, 1,-1 
9030 DPTP4,-1, 1, 1,5, -1,-1, 1 


